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MODULE MAKACC ( 


BEGIN 


' 
Lee eR ERA AAA AAA EAAEEEARAAEEE ERATE EATER ARETE EAA AERA eee 


!® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY . 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, “ ASSACHUSETTS. 
tt ALL RIGHTS RESERVED. 


'* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COP 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH 


IED 
LICENSE AND WITH THE 
TW. Y 


® 

® 

® 

® 

® 

5 

® 

® 

i ROV : 
is OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. 4 
® 

iw THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND SH NOT T * 

® 

® 

® 

® 

® 

* 
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; OULD BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMEN 
's CORPORATION. 
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FACILITY: F1IACP Structure Level 1 
ABSTRACT: 


This routine makes the necessary hookups in the 1/0 database to 
reflect a new file access. 
ENVIRONMENT: 


STARLET operating system, including privileged system services 
and internal exec routines. This routine must be called 
in kernel mode. 


AUTHOR: Andrew C. Goldstein, CREATION DATE: 20-Dec-1976 17:28 


MODIFIED BY: 
v02-001 LMP000S L. Mark Pilant, 29-Dec-1981 15:05 
Add support for Cathedral windows. 
A0100 ACcG0001 Andrew C. Goldstein 10-Oct-1978 20:01 


Previous revision history moved to F11A.REV 
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> aor 430 
: 118 431 
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FUNCTIONAL DESCRIPTION: 


This routine makes the necessary 
reflect a new file access. 


i CALLING SEQUENCE: 


MAKE_ACCESS (ARG1, ARG2, ARG3) 


i INPUT PARAMETERS: 
AR 


G1: address of FCB to actess 


1 
1-se 1984 01:09:3 VAX-11 Bliss-32 V4, 
1273871 38e 9 :98i2 DISKSVMSMASTER:CF11 


GLOBAL ROUTINE MAKE_ACCESS (FCB, WINDOW, ABD) 


: NOVALUE = 


hookups in the I/0 database to 


ARG2: address of window to Link up 
ARGS: address of buffer descriptors 


i IMPLICIT INPUTS: 
CURRENT_VCB: VCB of volume in process 


i IMPLICIT OUTPUTS: 
NONE 


i ROUTINE VALUE: 
NONE 


i SIDE EFFECTS: : 
' VCB transaction count bumped, access counts in FCB adjusted, 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
: 
! OUTPUT PARAMETERS: 
NONE 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 


FCB and window hooked up. 


! FCB arg 
ow ar 
ABDSC. LENGTH); 
' buffer descriptor arg 
! address of the current window segment 


coon action flags 


m count of currently open files 
! system count of files opened 


BEGIN 
MAP 
FCB : REF BBLOCK, 
WINDOW : REF BBLOCK, ! wind 
ABD : REF BBLOCKVECTOR [ 
LOCAL 
WINDOW SEGMENT : REF BBLOCK; 
EXTERNAL 
CLEANUP_FLAGS : BITVECTOR, 
CURRENT _VCB : REF BBLOCK, ! 
PMS$GL_OPEN : ADDRESSING_MODE aeeeueeens 
! syste 
PMS$GL_OPENS : ADDRESSING_MODE (ABSOLUTE) ; 
! If the access count in the FCB is zero, hook it into the FCB List, 
! since it is not there yet. If, however R 
! bit is set, the FCB is already in the 


the directory LRU 
(ist. Then clear the bit and 


P 
IMAKACC.B32:1- 9” (2 
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ot-b60 12-2 08- 1382 93 398333 DISKSVMSMASTER:CF11A.SRCIJMAKACC.832;1 wi (2). v04 


: 121 0434 ' credit an entry to the LRU count. 
5 ¢ be 5 : 
3; 4 $ 
: 126 04 IF .FCBCFCBSW_ACNT] EQL 0 
: 125 0438 THEN 

Bis $ 0439 EGIN 
; 1 0440 IF NOT .FCBCFCBSV_DIRJ 
; 12 0441 THEN INSQUE (.FCB, .CURRENT_VCBCVCBS$L_FCBBLIJ) 

3; ter 044 ELSE 

: 150 0443 4 pesin 

s 131 0444 4 FCBCFCB$V_DIR] = 0; 

: } § Reee 3 CURRENT VCBLVCBSB_LAU_LIA) = .CURRENT_VCBCVCB$B_LRU_LIM] + 1; 

s 154 0447 END; 

; i135 0448 

: 1% 0449 ! Now hook the window onto the FCB and adjust the access counts 

737 0450 ! according to the access control bits in the window. 

: «4138 0451 : 

: 139 ones 

; 140 045 WINDOW_SEGMENT = .WINDOW; 

3 «141 0454 DO 

: is 0455 BEGIN 

; 0456 INSQUE (.WINDOW_ SEGMENT, .FCBCFCBSL_WLBLJ); 

3 1446 0457 WINDOW SEGMENT = .WINDOW_SEGMENTCWCBSL_LINKI; 

> «(145 0453 3 END 

3 6146 0459 2 UNTIL .WINDOW SEGMENT Fe 0; 

3 +t 4 Reee § FCBCFCBSW_ACNT) = .FCBCFCBSW_ACNT] + 1; ! bump access count 

3: «(149 paee § IF .WINDOWCWCBSV_NOREADJ 

: 130 O06? THEN FCBCFCBSV_EXCLJ = 1; ! set exclusive access 

; 136 0465 IF .WINDOWCWCBSV monly? 

: 137 Bee8 THEN FCBCFCBSW_LCNT) = .FCBCFCB$W_LCNT] + 1; ! no writers 

s 155 0468 § IF .WINDOWCWCBSV_NOTRUNC) | 
; 136 pes? THEN FCBCFCBSW_TCNT] = .FCBCFCBSW_TCNT] + 1; ! no truncates | 
: 158 0471 $ ! For a write access, buae the writer count. If this is the 
5 TOF 0472 2! first write, and the file is the index file or the storage map, set 
: 160 0475 2! the appropriate flag in the VCB. 
s 36) 0474 $ 

: 166 0475 

: 16 o676 IF .WINDOWCWCBSV_WRITEJ 
7 «164 47 THEN 
: 165 478 BEGIN 
: 166 0479 IF .FCBCFCBSW_WCNT) EQL 0 
3: 167 0480 THEN 

; 4168 0481 4 BEGIN 
; 1s? Bees 4 IF .FCBCFCBSW_FID_NUM) EQL 1 

: 170 4 4 THEN CURRENT QCBCVCBSV_WRITE_IF) = 1; 
: 171 4 4 IF .FCBCFCBSW_FIB_NUM) EQL™2 

: 1% 485 4 ae THEN CURRENT_QCBCVCBSV_WRITE_SM) = 1; 

3 (176 FCBLF CB$W_WCNT) = .FCBCFCBSW_WCNT] + 1; 

oe fa! END; 

3 179 

a 


' Count the access in the volume transaction count and return 
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1 the window address for the user's CCB. 
PMS$GL_OPEN = .PMSSGL_OPEN + 1; ' bump open file count 
PMSSGL OPENS = .PMSS$GC QPENS + 1; ' bump count of opens 
CURRENT_VCBLVCBS$W_TRANS] = .CURRENT_VCBLVCB$W_TRANS] + 1; 
ABDCABDSC_WINDOW, ABD$SW_COUNT] = 4; ! enable write-back 
-ABDCABDSC_WINDOW, ABDSQ_TEXT] + ABDCABD$C_WINDOW, ABDSW_TEXT] + 1 = . WINDOW; | 
! put window address in buffer text 
Mark the access complete in the cleanup action flags. | 
CLEANUP_FLAGSCCLF_DEACCESS] = 1; | 
1 END; ! end of routine MAKE_ACCESS | 
TITLE MAKACC | 
“IDENT \V04-000\ 
.EXTRN CLEANUP_FLAGS, CURRENT_VCB 
-EXTRN PMS$GL_OPEN, PMS$GL_OPENS 
.PSECT $CODE$,NOWRT,2 
000c 00000 .ENTRY MAKE_ACCESS, Save R2,R3 : 0377 
53 00006 CF 9E 00002 MOVAB CURRENT_VCB, R3 : 
51 04 AC DO 00007 MOVL FCB, R1 + 0437 
1A Al_s—-BS 00008 TSTW =. 26 (R1) ; 
14 12 OOO0E BNEQ 2$ : 
50 63 D0 00010 MOVL § CURRENT_VCB, RO > 0441 
06 22 Al E8 00013 BLBS 34(R1),1$ > 0440 
04 80 61 OE 00017 INSQUE (R1), @4(RO) > 0441 
07 11 0001B BRB 2$ ; 
22. «Al 01 8A 0001D 1$ BICB2 #1, 34(R1) > 0444 
49 AO 96 90021 INC 73(RO) > 0445 
51 08 AC DO 00024 28 MOVL § WINDOW, WINDOW SEGMENT > 0453 
50 04 AC 00 00028 3$ MOVL FCB, RO + 0456 
14 B60 61 OF 0002C INSQUE (WINDOW SEGMENT), @20(RO) : 
51 20 Al DO 00030 MOVL  32(WINDOW_SEGMENT), WINDOY_SEGMENT : 0457 
F2 12 000 BNEQ 3$ : 0459 
50 AC DO 90036 MOVL FCB, RO : 0460 | 
1A AO B6 0003A INCW 26 (RO) : 
52 AC DO 9005p MOVL WINDOW, R2 > 0462 | 
04 15 Ae 02 a 0041 BBC #2, line), 4$ : 
22 AO 08 88 00046 BISB2 #8. 34(RO) : 046 
14 A2 €9 OOO4A 4$: BLBC : (r2), 5$ : 046 
1E AO 86 uF INCW (RO) > 0466 
03 15 A2 03 €1 5$: BBC #3, 21(R2), 6$ > 0468 
20 Ad B6 00056 INCW = 32¢R0) : 0469 
22 0B A2 01 €1 9 6$: BBC Wi, 11(R2), 9$ > 0476 
1¢ AO B F TSTW 8(RO) : 0479 
1A 1 6 BNEQ $ : 
01 24 AQ B 0063 CMPW 6(RO), #1 > 0482 
07 12 0006 BNEQ t ; 


ce ee 


| i 


: Bi ISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:MAKACC/OBJ=OBJ$:MAKACC MSRC$:MAKACC/UPDATE=(ENHS:MAKACC) 


1 
 MAKACC 1bese -1984 01:09:3 VAX=-11 Bliss-32 V4.0-742 Page 6) 
ee 1ereeen TBs 95:98 :2s Netw ShASteRcce tik; cee amaxacc.e32;1°% (2 
51 3 69 MOVL CURRENT_VCB, R1 : 0483 | 
0B AI 61 BB § ¢ BISB2 «#1, AMR : 
| 02 24 AQ B1 9 7$: CMPW Zo'R0). #2 : 0484 | 8 
| 07 «+1 74 BNEQ $ : 
51 6 p 0 £6 MOVL CURRENT_VCB, R1 + 0485 Bik 
| 0B AI 0 007 BISB2 He 11(R1) : Bar 
1¢ AO B6 0007D 8$: INCW  28(RO) : 0487 : 
000000006 9F 06 00080 9$: INCL § @#PMS$GL_OPEN 7 0494 fie 
000000006 9F D6 00 INCL @a#PMS$GL~ OPENS + 0495 4 
50 63 DO 0008C MOVL CURRENT _VCB, RO + 0496 1B 
0c AO B6 0008F INCW 12(R0) : FIB 
51 OC ac 00 90092 MOVL ABD, R1 + 0498 F1B 
02. «Al 04 80 0096 MOVW 4, 2(R1) : HEA 
50 61 3C 0009A MOVZWL (R1), RO + 0499 
01 A140 9F 0009D PUSHAB 1(R1SCROJ : 
9E 52 DO OOOA1 MOVL R2, a(SP)+ : 
00006 CF 01 88 000A4 BISB2 #1, CLEANUP_FLAGS+2 : 0505 
04 000A9 RET : 0507 
; Routine Size: 170 bytes, Routine Base: $CODE$S + 0000 
> 195 0508 1 
: 196 0509 1 END 
> 197 0510 0 ELUDOM 
: PSECT SUMMARY 
: Name Bytes Attributes 
: SCODES 170 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3 Library Statistics 
eg ee ee ee Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped ime 
: -$255$DUA28 : (SYSLIBIL18.437:1 18619 23 0 1000 00:02.0 
| 
; COMMAND QUALIFIERS | 
} 
| 


_— 


; Size: 170 code + 0 data bytes 
; Run Time: : 8. 
; Elapsed Time: 326. 
3; Lines/CPU Min: 754 

: Lexemes/CPU-Min: 16181 

; Y Used: 114 pages 

; Compilation Complete 
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